home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / SUPERNET.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.3 KB  |  64 lines
  1. # Denver Supernet, Inc. PPP or SLIP login script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-9-95
  4.  
  5. STRING username
  6. STRING password
  7. STRING framing
  8. STRING IPAddress
  9.  
  10. # TRACE ON
  11.  
  12. SetTimeOut 90
  13.  
  14. CfgGetValue "Username" username
  15. IF result = 0 THEN
  16.     GetInput "Enter your username:" username
  17.     IF result = 0 THEN
  18.         PRINT "Warning, no username entered."
  19.     ELSE
  20.         PRINT "Username set to:"; username
  21.     ENDIF
  22. ENDIF
  23.  
  24. CfgGetValue "Password" password
  25. IF result = 0 THEN
  26.     GetPassword "Enter your password:" password
  27.     IF result = 0 THEN
  28.         PRINT "Warning, no password entered."
  29.     ELSE
  30.         PRINT "Password set."
  31.     ENDIF
  32. ENDIF
  33.  
  34. CfgGetValue "Framing" framing
  35. IF result = 0 THEN
  36.     ABORT "Can't read 'Framing' setting from QDECK.INI."
  37. ENDIF
  38.  
  39. CommWaitFor "username:"
  40.     CommSend username
  41.     CommSend "%r"
  42.  
  43. CommWaitFor "password:"
  44.     CommSend password
  45.     CommSend "%r"
  46.  
  47. CommWaitFor "annex:"
  48.  
  49. IF framing = "MPSLIP" THEN
  50.     CommSend "slip%r"
  51.     PRINT "Getting IP Address for SLIP"
  52.     CommWaitFor "our address is"
  53.     CommReadIPAddr IPAddress
  54.     IF result < 7 THEN                           # IP Address length test
  55.         ABORT "Missing or invalid IP Address."
  56.     ENDIF
  57.     CfgSetValue "IPAddress" ipaddress
  58.     PRINT "IP Address set to"; ipaddress
  59. ELSE
  60.     CommSend "ppp%r"
  61. ENDIF
  62.  
  63. END
  64.